RegionPlot[y < 8 + 6 x, {x, -10, 10}, {y, -10, 10}]