Since page content in Word is dependent on the attached printer driver, unless your RTF document uses manual page breaks or Next Section breaks to delineate page boundaries, there is no reason to suppose the RTF pages will be the same as what you'll see in Word. That said, you don't need to select a page to work on it. It's far more effieicient to use range objects, for example:
Code:
Sub Demo()
Dim Rng As Range, i As Long
With ActiveDocument
For i = 1 To .ComputeStatistics(wdStatisticPages)
Set Rng = .GoTo(What:=wdGoToPage, Name:=i)
Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\page")
With Rng
'Do something with the page range
End With
Next
End With
End Sub