Hi,
you forgot to write x_ instead x and the outer brackets { } in Piecewise. With Plot3D you obtain
R[x_, a_] := Piecewise[{{a x + 8, x <= -3}, {x^2 + 2 a^2, x > -3}}];
Plot3D[R[x, a], {x, -10, 10}, {a, -5, 5}]
which gives you a plot. If "a" is just a constant, which needs to be determined for a plot and not really a variable I would try the following
R[x_] := Piecewise[{{a x + 8, x <= -3}, {x^2 + 2 a^2, x > -3}}];
Plot[R[x] /. a -> 2, {x, -10, 10}]
/. a-> is similar to the With operator, which might have been used here as well, and sets the values locally.