do - loop until won't stop going back to beginning

If IND.Value = True And IASUB = True Then
    If Trim(NAM) <> "" Then
        With Sheets("Initial Setup").Range("p6002:r13999")
            
            Set rng = .Find(What:=NAM, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not rng Is Nothing Then
                Do
                addr = rng.Address
                addr1 = rng.Offset(0, -4)
                addr2 = rng.Offset(0, -2)
                addr3 = rng.Offset(0, -6)
                a = MsgBox("There is a " & rng & ", " & Format(addr1, "(###) ###-####") & " in " & addr3 & ", " & ". Would You like to use this one?", vbYesNoCancel)
                If a = vbCancel Then
                    GoTo 1000
                Else
                If a = vbYes Then
                    ws.Activate
                    If Range("d57").Value <> "" Then
                        If Range("d61").Value <> "" Then
                            b = MsgBox("There are no Open IA slots on this claim.  Would you like to replace one?", vbYesNoCancel)
                            If b = vbCancel Then
                                GoTo 1000
                            Else
                            If b = vbNo Then
                                MsgBox ("Unable to add IA.  Both slots are taken.  Consider removing one that you are not using anymore.")
                                GoTo 1000
                            Else
                            If b = vbYes Then
                                c = MsgBox("Would you like to replace IA #1?", vbYesNoCancel)
                                If c = vbCancel Then
                                    GoTo 1000
                                Else
                                If c = vbNo Then
                                    Range("d61").Value = rng
                                    Range("d62").Value = addr1
                                    Range("d63").Value = addr2
                                    Range("d60").EntireRow.Hidden = False
                                    Range("d61").EntireRow.Hidden = False
                                    Range("d62").EntireRow.Hidden = False
                                    Range("d63").EntireRow.Hidden = False
                                    GoTo 1000
                                Else
                                If c = vbYes Then
                                    Range("d57").Value = rng
                                    Range("d58").Value = addr1
                                    Range("d59").Value = addr2
                                    Range("d56").EntireRow.Hidden = False
                                    Range("d57").EntireRow.Hidden = False
                                    Range("d58").EntireRow.Hidden = False
                                    Range("d59").EntireRow.Hidden = False
                                    GoTo 1000
                                End If
                                End If
                                End If
                            End If
                            End If
                            End If
                        Else
                        If Range("d61") = "" Then
                            Range("d61").Value = rng
                            Range("d62").Value = addr1
                            Range("d63").Value = addr2
                            Range("d60").EntireRow.Hidden = False
                            Range("d61").EntireRow.Hidden = False
                            Range("d62").EntireRow.Hidden = False
                            Range("d63").EntireRow.Hidden = False
                            GoTo 1000
                        End If
                        End If
                    Else
                    If Range("d57") = "" Then
                        Range("d57").Value = rng
                        Range("d58").Value = addr1
                        Range("d59").Value = addr2
                        Range("d56").EntireRow.Hidden = False
                        Range("d57").EntireRow.Hidden = False
                        Range("d58").EntireRow.Hidden = False
                        Range("d59").EntireRow.Hidden = False
                        GoTo 1000
                    End If
                    End If
                    GoTo 1000
                Else
                If a = vbNo Then
                End If
                End If
                End If
                Set rng = .FindNext(rng)
                Loop Until rng.Address = addr
                GoTo 200