In[]:=
Show[​​Table[​​ContourPlot[​​{2x+3ycp-50},​​{x,10,20},{y,25,35},​​PlotLegends{"Line Equation"}],​​{cp,100,250,5}]]
Out[]=
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation
Line Equation