Просто поместите ваш код в отдельный метод:
For Each item In rpt1.Items
DoSomethingWith(item)
Next
For Each item In rpt2.Items
DoSomethingWith(item)
Next
...
Sub DoSomethingWith(item As RepeaterItem)
... put your common code here ...
End Sub
РЕДАКТИРОВАТЬ : Если у вас много локальных переменных, можно использовать локальную лямбду:
Dim doSomething = Sub(item As RepeaterItem)
... do some stuff using all available local variables
End Sub
For Each item In rpt1.Items
doSomething(item)
Next
For Each item In rpt2.Items
doSomething(item)
Next
РЕДАКТИРОВАТЬ : еще один параметр, который не требует лямбда-выражений:
For Each rpt In New Repeater() {rpt1, rpt2}
For Each item In rpt.Items
...do something with item and rpt
Next
Next