Olá, só não entendi direito a parte do verso aonde tu colocaria precisaria de mais detalhes mas esse código já verifica qual página é par.

Sub AdicionarQuandoPar()
    Dim objDoc As Document
    Set objDoc = ActiveDocument
    For i = 1 To objDoc.ComputeStatistics(wdStatisticPages)
        If i Mod 2 = 0 Then
            Selection.GoTo wdGoToPage, wdGoToAbsolute, i
            Selection.TypeText Text:="Verso " & (i - 1) & " - "
        End If
    Next i
End Sub