Is there something you could search for that is mentioned only once in each item. If there is you can just do a find and a do while.

Selection.Find

Do While .Execute
"your code"
Loop

Let me know if you need more detail.