Dim bDraw As Boolean = True
'al di fuori del ciclo Do metti le cose che vuoi stampare su tutte le pagine

            Do Until Not (bDraw)
               If intItem = ListView1.Items.Count Then
                    Exit Do
                End If
'In questo caso per esempio stampo tutti gli item di una listview
.....
.....
intItem += 1
                bDraw = (intItem Mod 18 <> 0)'dove 18 è il numero di item della listview da stampare per ogni pagina
  Loop

            If intItem = ListView1.Items.Count Then
                intItem = 0
            Else
                NumeroPagina += 1
                e.HasMorePages = True
            End If