You could create a variable to store the address and then compare the new address to it each time you loop...
Code:
Dim storeAddress: storeAddress = ""
Do Until rs.EOF
Dim address: address = rs("hsenumxtownland")
If storeAddress <> "" And storeAddress <> address Then
' ----- WRITE PAGE BREAK -----
storeAddress = address
End If
' ----- DO OTHER STUFF -----
Loop
HTH,
Chris