Plot[{Sin[x], 2, 2.5, 3, -2, -2.5, -3}, {x, -8, 8}]