VBA chart limits

Hi,
Hope someone can help me.
I have upper and lower limits on a scatter chart. and VBA code that determines if the chart is a pass or a fail. VBA code is referencing the limits at 5 different points on the chart. for the chart to pass all points must be between the upper and lower limit. However it only seems to be reading the first point and determining if that is a pass or fail for the whole chart.

Sorry I couldn't attach the sheet as the file size was too big but here is a jpeg of the chart and the code that relates to it. also attached is the reference sheet for the x and y plot for the graph.
red graph.png

Sub LightOutputRedDec()

Dim UserResponseHigh As Integer
Dim UserResponseLow As Integer

Sheets("control panel").Activate

Do




If Sheets("RED ASPECT").Range("C85").value > Sheets("Reference").Range("F85").value And _
   Sheets("RED ASPECT").Range("C110").value > Sheets("REference").Range("F60").value And _
   Sheets("RED ASPECT").Range("C115").value > Sheets("REference").Range("F55").value And _
   Sheets("RED ASPECT").Range("C120").value > Sheets("REference").Range("F50").value And _
   Sheets("RED ASPECT").Range("C145").value > Sheets("REference").Range("F25").value Then


UserResponseHigh = MsgBox(prompt:="Light Output too high, Reduce resistance on decade box", Buttons:=vbRetryCancel)


      If UserResponseHigh = vbRetry Then
        Sheets("RED ASPECT").Activate
        Call GetAdc11
        Sheets("Control Panel").Activate
    ElseIf UserResponseHigh = vbCancel Then
      Call SaveWorkbook
        Call QuitNoSave
    End If




ElseIf _
        Sheets("RED ASPECT").Range("C85").value < Sheets("Reference").Range("D85").value And _
        Sheets("RED ASPECT").Range("C110").value < Sheets("REference").Range("D60").value And _
        Sheets("RED ASPECT").Range("C115").value < Sheets("REference").Range("D55").value And _
        Sheets("RED ASPECT").Range("C120").value < Sheets("REference").Range("D50").value And _
        Sheets("RED ASPECT").Range("C145").value < Sheets("REference").Range("D25").value Then


UserResponseLow = MsgBox(prompt:="Light Output too low, Increase resistance on decade box", Buttons:=vbRetryCancel)

If UserResponseLow = vbRetry Then
        Sheets("RED ASPECT").Activate
        Call GetAdc11
        Sheets("Control Panel").Activate
ElseIf UserResponseLow = vbCancel Then
      Call SaveWorkbook
        Call QuitNoSave
        End If
      End If
      
              
 
 Loop Until _
 Sheets("RED ASPECT").Range("C85").value < Sheets("Reference").Range("F85").value And _
 Sheets("RED ASPECT").Range("C110").value < Sheets("REference").Range("F50").value And _
 Sheets("RED ASPECT").Range("C115").value < Sheets("REference").Range("F55").value And _
 Sheets("RED ASPECT").Range("C120").value < Sheets("REference").Range("F60").value And _
 Sheets("RED ASPECT").Range("C145").value < Sheets("REference").Range("F85").value Or _
 _
 Sheets("RED ASPECT").Range("C85").value < Sheets("Reference").Range("D85").value And _
 Sheets("RED ASPECT").Range("C110").value < Sheets("REference").Range("D50").value And _
 Sheets("RED ASPECT").Range("C115").value < Sheets("REference").Range("D55").value And _
 Sheets("RED ASPECT").Range("C120").value < Sheets("REference").Range("D60").value And _
 Sheets("RED ASPECT").Range("C145").value < Sheets("REference").Range("D85").value
    
      MsgBox ("Light Output Passed")
     
   
    
End Sub

Any help would be much appreciated. Thanks in Advance

Steve