Sub Demo()
Dim i As Long, Rng As Range, StrPages As String
With ActiveDocument
  For i = 1 To .ComputeStatistics(wdStatisticPages)
    Set Rng = .GoTo(What:=wdGoToPage, Name:=i)
    Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\page")
    If Len(Rng) < 3 Then StrPages = StrPages & " " & Rng.Information(wdActiveEndAdjustedPageNumber)
  Next
End With
StrPages = Replace(Trim(StrPages), " ", ", ")
MsgBox "The following pages are empty:" & vbCr & StrPages
End Sub